home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 September / Chip_2001-09_cd1.bin / zkuste / delphi / kompon / d23456 / TB97.ZIP / Demo (CBuilder 3) / Demo1.dfm / Demo1.txt
Encoding:
Text File  |  1998-08-31  |  17.6 KB  |  549 lines
  1. object DemoForm: TDemoForm
  2.   Left = 187
  3.   Top = 112
  4.   Width = 453
  5.   Height = 340
  6.   Caption = 'Toolbar97 Demo'
  7.   Font.Charset = DEFAULT_CHARSET
  8.   Font.Color = clWindowText
  9.   Font.Height = -11
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = []
  12.   Menu = MainMenu
  13.   OnCreate = FormCreate
  14.   PixelsPerInch = 96
  15.   TextHeight = 13
  16.   object TopDock: TDock97
  17.     Left = 0
  18.     Top = 0
  19.     Width = 445
  20.     Height = 79
  21.     BoundLines = [blTop]
  22.     PopupMenu = ToolbarPopupMenu
  23.     object EditToolbar: TToolbar97
  24.       Left = 0
  25.       Top = 26
  26.       Caption = 'Edit'
  27.       DefaultDock = TopDock
  28.       DockPos = 0
  29.       DockRow = 1
  30.       ParentShowHint = False
  31.       PopupMenu = ToolbarPopupMenu
  32.       ShowHint = True
  33.       TabOrder = 1
  34.       object FontButton: TToolbarButton97
  35.         Left = 133
  36.         Top = 0
  37.         Width = 23
  38.         Height = 22
  39.         Hint = 'Font'
  40.         Glyph.Data = {
  41.           F6000000424DF600000000000000760000002800000010000000100000000100
  42.           0400000000008000000000000000000000001000000010000000000000000000
  43.           80000080000000808000800000008000800080800000C0C0C000808080000000
  44.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  45.           7777777777777777777777777777777777777444477744444477778477777844
  46.           8777777447777844777777784777744877777777444444477777777784774487
  47.           7777777774474477777777777844487777777777774447777777777777848777
  48.           7777777777747777777777777777777777777777777777777777}
  49.         OnClick = FontButtonClick
  50.       end
  51.       object EditSep1: TToolbarSep97
  52.         Left = 156
  53.         Top = 0
  54.       end
  55.       object LeftButton: TToolbarButton97
  56.         Left = 162
  57.         Top = 0
  58.         Width = 23
  59.         Height = 22
  60.         Hint = 'Align Left'
  61.         GroupIndex = 1
  62.         Down = True
  63.         Glyph.Data = {
  64.           F6000000424DF600000000000000760000002800000010000000100000000100
  65.           0400000000008000000000000000000000001000000010000000000000000000
  66.           8000008000000080800080000000800080008080000080808000C0C0C0000000
  67.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
  68.           8888888888888888888888888888888888880000000000000088888888888888
  69.           8888000000000088888888888888888888880000000000000088888888888888
  70.           8888000000000088888888888888888888880000000000000088888888888888
  71.           8888000000000088888888888888888888888888888888888888}
  72.       end
  73.       object CenterButton: TToolbarButton97
  74.         Left = 185
  75.         Top = 0
  76.         Width = 23
  77.         Height = 22
  78.         Hint = 'Align Center'
  79.         GroupIndex = 1
  80.         Glyph.Data = {
  81.           F6000000424DF600000000000000760000002800000010000000100000000100
  82.           0400000000008000000000000000000000001000000010000000000000000000
  83.           8000008000000080800080000000800080008080000080808000C0C0C0000000
  84.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
  85.           8888888888888888888888888888888888888800000000008888888888888888
  86.           8888000000000000008888888888888888888800000000008888888888888888
  87.           8888000000000000008888888888888888888800000000008888888888888888
  88.           8888000000000000008888888888888888888888888888888888}
  89.       end
  90.       object RightButton: TToolbarButton97
  91.         Left = 208
  92.         Top = 0
  93.         Width = 23
  94.         Height = 22
  95.         Hint = 'Align Right'
  96.         GroupIndex = 1
  97.         Glyph.Data = {
  98.           F6000000424DF600000000000000760000002800000010000000100000000100
  99.           0400000000008000000000000000000000001000000010000000000000000000
  100.           8000008000000080800080000000800080008080000080808000C0C0C0000000
  101.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
  102.           8888888888888888888888888888888888888888000000000088888888888888
  103.           8888000000000000008888888888888888888888000000000088888888888888
  104.           8888000000000000008888888888888888888888000000000088888888888888
  105.           8888000000000000008888888888888888888888888888888888}
  106.       end
  107.       object FontCombo: TComboBox
  108.         Left = 0
  109.         Top = 0
  110.         Width = 133
  111.         Height = 21
  112.         Hint = 'Font'
  113.         ItemHeight = 13
  114.         Items.Strings = (
  115.           'a font list could go here...')
  116.         TabOrder = 0
  117.         Text = 'Arial'
  118.       end
  119.     end
  120.     object SampleToolbar: TToolbar97
  121.       Left = 0
  122.       Top = 52
  123.       Caption = 'Sample'
  124.       DockPos = 0
  125.       DockRow = 2
  126.       ParentShowHint = False
  127.       PopupMenu = ToolbarPopupMenu
  128.       ShowHint = True
  129.       TabOrder = 2
  130.       object SampleSep1: TToolbarSep97
  131.         Left = 108
  132.         Top = 0
  133.       end
  134.       object DropdownButton: TToolbarButton97
  135.         Left = 114
  136.         Top = 0
  137.         Width = 68
  138.         Height = 22
  139.         DropdownMenu = DropPopupMenu
  140.         Caption = 'Dropdown'
  141.       end
  142.       object SampleSep2: TToolbarSep97
  143.         Left = 182
  144.         Top = 0
  145.       end
  146.       object ToolWinButton: TToolbarButton97
  147.         Left = 188
  148.         Top = 0
  149.         Width = 110
  150.         Height = 22
  151.         AllowAllUp = True
  152.         GroupIndex = 2
  153.         Caption = 'Tool Window Sample'
  154.         OnClick = ToolWinButtonClick
  155.       end
  156.       object SampleEdit1: TEdit97
  157.         Left = 0
  158.         Top = 1
  159.         Width = 54
  160.         Height = 19
  161.         TabOrder = 0
  162.         Text = 'TEdit97'
  163.       end
  164.       object SampleEdit2: TEdit97
  165.         Left = 54
  166.         Top = 1
  167.         Width = 54
  168.         Height = 19
  169.         TabOrder = 1
  170.         Text = 'sample'
  171.       end
  172.     end
  173.     object MainToolbar: TToolbar97
  174.       Left = 0
  175.       Top = 0
  176.       Caption = 'Main'
  177.       DefaultDock = TopDock
  178.       DockPos = 0
  179.       ParentShowHint = False
  180.       PopupMenu = ToolbarPopupMenu
  181.       ShowHint = True
  182.       TabOrder = 0
  183.       object NewButton: TToolbarButton97
  184.         Left = 0
  185.         Top = 0
  186.         Width = 23
  187.         Height = 22
  188.         Hint = 'New'
  189.         Glyph.Data = {
  190.           F6000000424DF600000000000000760000002800000010000000100000000100
  191.           0400000000008000000000000000000000001000000010000000000000000000
  192.           8000008000000080800080000000800080008080000080808000C0C0C0000000
  193.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
  194.           888888888888888888888800000000000888880FFFFFFFFF0888880FFFFFFFFF
  195.           0888880FFFFFFFFF0888880FFFFFFFFF0888880FFFFFFFFF0888880FFFFFFFFF
  196.           0888880FFFFFFFFF0888880FFFFFFFFF0888880FFFFFF0000888880FFFFFF0F0
  197.           8888880FFFFFF008888888000000008888888888888888888888}
  198.       end
  199.       object OpenButton: TToolbarButton97
  200.         Left = 23
  201.         Top = 0
  202.         Width = 23
  203.         Height = 22
  204.         Hint = 'Open'
  205.         Glyph.Data = {
  206.           F6000000424DF600000000000000760000002800000010000000100000000100
  207.           0400000000008000000000000000000000001000000010000000000000000000
  208.           80000080000000808000800000008000800080800000C0C0C000808080000000
  209.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  210.           77777777777777777777000000000007777700333333333077770B0333333333
  211.           07770FB03333333330770BFB0333333333070FBFB000000000000BFBFBFBFB07
  212.           77770FBFBFBFBF0777770BFB0000000777777000777777770007777777777777
  213.           7007777777770777070777777777700077777777777777777777}
  214.       end
  215.       object SaveButton: TToolbarButton97
  216.         Left = 46
  217.         Top = 0
  218.         Width = 23
  219.         Height = 22
  220.         Hint = 'Save'
  221.         Glyph.Data = {
  222.           F6000000424DF600000000000000760000002800000010000000100000000100
  223.           0400000000008000000000000000000000001000000010000000000000000000
  224.           8000008000000080800080000000800080008080000080808000C0C0C0000000
  225.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222
  226.           2222220000000000000220330000008803022033000000880302203300000088
  227.           0302203300000000030220333333333333022033000000003302203088888888
  228.           0302203088888888030220308888888803022030888888880302203088888888
  229.           0002203088888888080220000000000000022222222222222222}
  230.       end
  231.       object MainSep1: TToolbarSep97
  232.         Left = 69
  233.         Top = 0
  234.       end
  235.       object PrintButton: TToolbarButton97
  236.         Left = 75
  237.         Top = 0
  238.         Width = 23
  239.         Height = 22
  240.         Hint = 'Print'
  241.         Glyph.Data = {
  242.           F6000000424DF600000000000000760000002800000010000000100000000100
  243.           0400000000008000000000000000000000001000000010000000000000000000
  244.           8000008000000080800080000000800080008080000080808000C0C0C0000000
  245.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222
  246.           22222200000000000222208888888880802200000000000008020888888BBB88
  247.           0002088888877788080200000000000008800888888888808080200000000008
  248.           0800220FFFFFFFF080802220F00000F000022220FFFFFFFF022222220F00000F
  249.           022222220FFFFFFFF02222222000000000222222222222222222}
  250.       end
  251.       object PrintPreviewButton: TToolbarButton97
  252.         Left = 98
  253.         Top = 0
  254.         Width = 23
  255.         Height = 22
  256.         Hint = 'Print Preview'
  257.         Glyph.Data = {
  258.           F6000000424DF600000000000000760000002800000010000000100000000100
  259.           0400000000008000000000000000000000001000000010000000000000000000
  260.           80000080000000808000800000008000800080800000C0C0C000808080000000
  261.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222
  262.           222200000000000022000FFFFFFFFFF020000FFFFFFF000080020FFFFFF08778
  263.           08220FFFFF0877E880220FFFFF07777870220FFFFF07E77870220FFFFF08EE78
  264.           80220FFFFFF0877802220FFFFFFF000022220FFFFFFFFFF022220FFFFFFF0000
  265.           22220FFFFFFF070222220FFFFFFF002222220000000002222222}
  266.       end
  267.       object MainSep2: TToolbarSep97
  268.         Left = 121
  269.         Top = 0
  270.       end
  271.       object CutButton: TToolbarButton97
  272.         Left = 127
  273.         Top = 0
  274.         Width = 23
  275.         Height = 22
  276.         Hint = 'Cut'
  277.         Glyph.Data = {
  278.           F6000000424DF600000000000000760000002800000010000000100000000100
  279.           0400000000008000000000000000000000001000000010000000000000000000
  280.           8000008000000080800080000000800080008080000080808000C0C0C0000000
  281.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
  282.           8888888844888888888888848848844888888884884848848888888488484884
  283.           8888888844484884888888888848444888888888884048888888888888808888
  284.           8888888888000888888888888808088888888888800800888888888880888088
  285.           8888888880888088888888888088808888888888888888888888}
  286.       end
  287.       object CopyButton: TToolbarButton97
  288.         Left = 150
  289.         Top = 0
  290.         Width = 23
  291.         Height = 22
  292.         Hint = 'Copy'
  293.         Glyph.Data = {
  294.           F6000000424DF600000000000000760000002800000010000000100000000100
  295.           0400000000008000000000000000000000001000000010000000000000000000
  296.           8000008000000080800080000000800080008080000080808000C0C0C0000000
  297.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
  298.           8888888888888888888888888844444444488888884FFFFFFF488888884F0000
  299.           0F480000004FFFFFFF480FFFFF4F00000F480F00004FFFFFFF480FFFFF4F00F4
  300.           44480F00004FFFF4F4880FFFFF4FFFF448880F00F044444488880FFFF0F08888
  301.           88880FFFF0088888888800000088888888888888888888888888}
  302.       end
  303.       object PasteButton: TToolbarButton97
  304.         Left = 173
  305.         Top = 0
  306.         Width = 23
  307.         Height = 22
  308.         Hint = 'Paste'
  309.         Glyph.Data = {
  310.           F6000000424DF600000000000000760000002800000010000000100000000100
  311.           0400000000008000000000000000000000001000000010000000000000000000
  312.           8000008000000080800080000000800080008080000080808000C0C0C0000000
  313.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222
  314.           222222222244444444442000004FFFFFFFF40737374F444444F40373734FFFFF
  315.           FFF40737374F444F44440373734FFFFF4F420737374FFFFF4422037373444444
  316.           402207373737373730220370000000077022077088888807302203730B00B073
  317.           7022200000BB0000022222222000022222222222222222222222}
  318.       end
  319.       object MainSep3: TToolbarSep97
  320.         Left = 196
  321.         Top = 0
  322.       end
  323.       object UndoButton: TToolbarButton97
  324.         Left = 202
  325.         Top = 0
  326.         Width = 34
  327.         Height = 22
  328.         Hint = 'Undo'
  329.         DropdownCombo = True
  330.         DropdownMenu = DropPopupMenu
  331.         Glyph.Data = {
  332.           F6000000424DF600000000000000760000002800000010000000100000000100
  333.           0400000000008000000000000000000000001000000010000000000000000000
  334.           80000080000000808000800000008000800080800000C0C0C000808080000000
  335.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  336.           7777777777777777777777777777777777777777777777777777777777777777
  337.           7777777777777778477777444447777748777744447777777477774447777777
  338.           7477774474777777747777477748777748777777777844448777777777777777
  339.           7777777777777777777777777777777777777777777777777777}
  340.       end
  341.       object RedoButton: TToolbarButton97
  342.         Left = 236
  343.         Top = 0
  344.         Width = 34
  345.         Height = 22
  346.         Hint = 'Redo'
  347.         DropdownCombo = True
  348.         DropdownMenu = DropPopupMenu
  349.         Glyph.Data = {
  350.           F6000000424DF600000000000000760000002800000010000000100000000100
  351.           0400000000008000000000000000000000001000000010000000000000000000
  352.           8000008000000080800080000000800080008080000080808000C0C0C0000000
  353.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
  354.           8888888888888888888888888888888888888888888888888888888888888888
  355.           8888888478888888888888748888844444888848888888444488884888888884
  356.           4488884888888848448888748888748884888887444478888888888888888888
  357.           8888888888888888888888888888888888888888888888888888}
  358.       end
  359.     end
  360.   end
  361.   object LeftDock: TDock97
  362.     Left = 0
  363.     Top = 79
  364.     Width = 9
  365.     Height = 186
  366.     Position = dpLeft
  367.   end
  368.   object Memo: TMemo
  369.     Left = 9
  370.     Top = 79
  371.     Width = 427
  372.     Height = 186
  373.     Align = alClient
  374.     Font.Charset = DEFAULT_CHARSET
  375.     Font.Color = clWindowText
  376.     Font.Height = -11
  377.     Font.Name = 'Arial'
  378.     Font.Style = []
  379.     Lines.Strings = (
  380.       
  381.         'This is a demonstration of the toolbars, so most of the buttons ' +
  382.         'don'#39't do anything when clicked. Please see the file "Toolbar97 D' +
  383.         'ocumentation.htm" for information on using the Toolbar97 compone' +
  384.         'nts.'
  385.       ''
  386.       'Some things to try:'
  387.       
  388.         '∩┐╜ You can drag and resize the toolbars. Dock them to any side of' +
  389.         ' the form or leave them floating. Notice that if you dock the Ed' +
  390.         'it toolbar to the left or right side of the form, a button is us' +
  391.         'ed in place of the combo box (the source code shows how this was' +
  392.         ' set up).'
  393.       '∩┐╜ Multiple toolbars can lined up side-by-side or in rows.'
  394.       
  395.         '∩┐╜ Click the right button on a toolbar or dock to see its PopupMe' +
  396.         'nu.')
  397.     ParentFont = False
  398.     ScrollBars = ssVertical
  399.     TabOrder = 0
  400.     WantTabs = True
  401.     WordWrap = False
  402.   end
  403.   object RightDock: TDock97
  404.     Left = 436
  405.     Top = 79
  406.     Width = 9
  407.     Height = 186
  408.     Position = dpRight
  409.   end
  410.   object BottomDock: TDock97
  411.     Left = 0
  412.     Top = 265
  413.     Width = 445
  414.     Height = 9
  415.     PopupMenu = ToolbarPopupMenu
  416.     Position = dpBottom
  417.   end
  418.   object StatusBar: TStatusBar
  419.     Left = 0
  420.     Top = 274
  421.     Width = 445
  422.     Height = 20
  423.     Panels = <
  424.       item
  425.         Width = 128
  426.       end>
  427.     SimplePanel = False
  428.   end
  429.   object SampleToolWindow: TToolWindow97
  430.     Left = 24
  431.     Top = 104
  432.     Caption = 'Tool Window'
  433.     ClientAreaHeight = 68
  434.     ClientAreaWidth = 185
  435.     DockPos = 0
  436.     MinClientHeight = 68
  437.     MinClientWidth = 128
  438.     PopupMenu = ToolbarPopupMenu
  439.     TabOrder = 6
  440.     Visible = False
  441.     OnVisibleChanged = SampleToolWindowVisibleChanged
  442.     object ListBox: TListBox
  443.       Left = 0
  444.       Top = 0
  445.       Width = 104
  446.       Height = 68
  447.       Align = alClient
  448.       ItemHeight = 13
  449.       TabOrder = 0
  450.       OnClick = ListBoxClick
  451.     end
  452.     object Panel1: TPanel
  453.       Left = 104
  454.       Top = 0
  455.       Width = 81
  456.       Height = 68
  457.       Align = alRight
  458.       BevelOuter = bvNone
  459.       TabOrder = 1
  460.       object AddButton: TButton
  461.         Left = 8
  462.         Top = 8
  463.         Width = 65
  464.         Height = 23
  465.         Caption = '&Add'
  466.         TabOrder = 0
  467.         OnClick = AddButtonClick
  468.       end
  469.       object DeleteButton: TButton
  470.         Left = 8
  471.         Top = 38
  472.         Width = 65
  473.         Height = 23
  474.         Caption = '&Delete'
  475.         Enabled = False
  476.         TabOrder = 1
  477.         OnClick = DeleteButtonClick
  478.       end
  479.     end
  480.   end
  481.   object ToolbarPopupMenu: TPopupMenu
  482.     OnPopup = ToolbarPopupMenuPopup
  483.     Left = 384
  484.     Top = 64
  485.     object TPMain: TMenuItem
  486.       Caption = '&Main'
  487.       Checked = True
  488.       OnClick = VTMainClick
  489.     end
  490.     object TPEdit: TMenuItem
  491.       Caption = '&Edit'
  492.       Checked = True
  493.       OnClick = VTEditClick
  494.     end
  495.     object TPSample: TMenuItem
  496.       Caption = '&Sample'
  497.       Checked = True
  498.       OnClick = VTSampleClick
  499.     end
  500.   end
  501.   object MainMenu: TMainMenu
  502.     Left = 352
  503.     Top = 64
  504.     object FMenu: TMenuItem
  505.       Caption = '&File'
  506.       object FExit: TMenuItem
  507.         Caption = 'E&xit'
  508.         OnClick = FExitClick
  509.       end
  510.     end
  511.     object VMenu: TMenuItem
  512.       Caption = '&View'
  513.       OnClick = VMenuClick
  514.       object VToolbars: TMenuItem
  515.         Caption = '&Toolbars'
  516.         object VTMain: TMenuItem
  517.           Caption = '&Main'
  518.           OnClick = VTMainClick
  519.         end
  520.         object VTEdit: TMenuItem
  521.           Caption = '&Edit'
  522.           OnClick = VTEditClick
  523.         end
  524.         object VTSample: TMenuItem
  525.           Caption = '&Sample'
  526.           OnClick = VTSampleClick
  527.         end
  528.       end
  529.       object VStatusBar: TMenuItem
  530.         Caption = '&Status Bar'
  531.         OnClick = VStatusBarClick
  532.       end
  533.     end
  534.   end
  535.   object DropPopupMenu: TPopupMenu
  536.     Left = 320
  537.     Top = 64
  538.     object Sample1: TMenuItem
  539.       Caption = 'Sample'
  540.     end
  541.     object dropdown1: TMenuItem
  542.       Caption = 'drop-down'
  543.     end
  544.     object menu1: TMenuItem
  545.       Caption = 'menu'
  546.     end
  547.   end
  548. end
  549.